home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGNG_C
/
CFUNCTS.LZH
/
GCLS.C
< prev
next >
Wrap
Text File
|
1986-12-15
|
970b
|
23 lines
gcls()
{
char far *p; /* Memory Pointer */
int count; /* for loop variable. */
int card_type; /* Card type: 1 = Color *
* 2 = Monochrome */
/* Determine screen memory based on card type */
card_type = card();
if (card_type == 1)
p = 0xb8000000; /* Color card. */
else
p = 0xb0000000; /* Monochrome card. */
/* 2000 = 25 columns * 80 rows */
for (count = 0; count < 2000; ++count)
{
*p = 0x0020; /* Write blank character to screen */
++p; /* Increment to attribute. */
*p = 0x0007; /* Set attribute to normal. */
++p; /* Increment to next location. */
}
}